home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
UNIXTOOL
/
MEMACS
/
C
/
Screen
< prev
next >
Wrap
Text File
|
1991-05-13
|
9KB
|
419 lines
/* SCREEN.C: Screen manipulation commands
for MicroEMACS 3.11
written by Daniel Lawrence
*/
#include <stdio.h>
#include "estruct.h"
#include "eproto.h"
#include "edef.h"
#include "elang.h"
PASCAL NEAR next_screen(f, n)
int f,n; /* prefix flag and argument */
{
SCREEN *sp; /* ptr to screen to switch to */
/* find the next screen */
sp = cur_screen->s_next_screen;
if (sp == (SCREEN *)NULL)
sp = first_screen;
/* and make this screen current */
mlwrite("[Switching to screen %s]", sp->s_screen_name);
return(select_screen(sp));
}
PASCAL NEAR prev_screen(f, n)
int f,n; /* prefix flag and argument */
{
SCREEN *sp; /* ptr to screen to switch to */
/* find the last screen */
if (cur_screen == first_screen) {
sp = first_screen;
while (sp->s_next_screen)
sp = sp->s_next_screen;
} else {
sp = first_screen;
while (sp) {
if (sp->s_next_screen == cur_screen)
break;
sp = sp->s_next_screen;
}
}
/* and make this screen current */
mlwrite("[Switching to screen %s]", sp->s_screen_name);
return(select_screen(sp));
}
PASCAL NEAR find_screen(f, n)
int f,n; /* prefix flag and argument */
{
char scr_name[NSTRING]; /* buffer to hold screen name */
SCREEN *sp; /* ptr to screen to switch to */
/* get the name of the screen to switch to */
mlreply("Find Screen: ", scr_name, NSTRING);
sp = lookup_screen(scr_name);
if (sp == (SCREEN *)NULL) {
/* save the current dot position in the buffer info */
curbp->b_dotp = curwp->w_dotp;
curbp->b_doto = curwp->w_doto;
/* screen does not exist, create it */
sp = init_screen(scr_name, curbp);
insert_screen(sp);
}
/* and make this screen current */
mlwrite("[Switching to screen %s]", scr_name);
return(select_screen(sp));
}
PASCAL NEAR free_screen(sp) /* free all resouces associated with a screen */
SCREEN *sp; /* screen to dump */
{
register WINDOW *wp; /* ptr to window to free */
register WINDOW *tp; /* temp window pointer */
/* first, free the screen's windows */
wp = sp->s_first_window;
while (wp) {
tp = wp->w_wndp;
free(wp);
wp = tp;
}
/* and now, free the screen struct itself */
free(sp);
}
PASCAL NEAR delete_screen(f, n)
int f,n; /* prefix flag and argument */
{
char scr_name[NSTRING]; /* buffer to hold screen name */
SCREEN *sp; /* ptr to screen to switch to */
SCREEN *last_scr; /* screen previous to one to delete */
/* get the name of the screen to switch to */
mlreply("Delete Screen: ", scr_name, NSTRING);
sp = lookup_screen(scr_name);
/* make sure it exists... */
if (sp == (SCREEN *)NULL) {
mlwrite("[No such screen]");
return(FALSE);
}
/* it can't be current... */
if (sp == cur_screen) {
mlwrite("%%Can't delete current screen");
return(FALSE);
}
/* at the beginning? */
if (sp == first_screen) {
last_scr = first_screen->s_next_screen;
free_screen(sp);
first_screen = last_scr;
return(TRUE);
}
/* find the place to delete */
last_scr = first_screen;
while (last_scr) {
if (last_scr->s_next_screen == sp)
break;
last_scr = last_scr->s_next_screen;
}
last_scr->s_next_screen = sp->s_next_screen;
free_screen(sp);
return(TRUE);
}
/* this function initializes a new screen.... */
SCREEN *PASCAL NEAR init_screen(scr_name, scr_buf)
char *scr_name; /* screen name */
BUFFER *scr_buf; /* buffer to place in first window of screen */
{
int cmark; /* current mark to initialize */
SCREEN *sp; /* pointer to allocated screen */
WINDOW *wp; /* ptr to first window of new screen */
/* allocate memory for this screen */
sp = (SCREEN *)malloc(sizeof(SCREEN));
if (sp == (SCREEN *)NULL)
return(sp);
/* set up this new screens fields! */
sp->s_next_screen = (SCREEN *)NULL;
sp->s_screen_name = copystr(scr_name);
/* allocate its first window */
wp = (WINDOW *)malloc(sizeof(WINDOW));
if (wp == (WINDOW *)NULL) {
free((char *)sp);
return((SCREEN *)NULL);
}
sp->s_first_window = sp->s_cur_window = wp;
/* and setup the windows info */
wp->w_wndp = NULL;
wp->w_bufp = scr_buf;
scr_buf->b_nwnd += 1;
wp->w_linep = scr_buf->b_linep;
/* position us at the buffers dot */
wp->w_dotp = scr_buf->b_dotp;
wp->w_doto = scr_buf->b_doto;
/* set all the marks to UNSET */
for (cmark = 0; cmark < NMARKS; cmark++) {
wp->w_markp[cmark] = NULL;
wp->w_marko[cmark] = 0;
}
wp->w_toprow = 0;
#if COLOR
/* initalize colors to global defaults */
wp->w_fcolor = gfcolor;
wp->w_bcolor = gbcolor;
#endif
wp->w_fcol = 0;
wp->w_ntrows = term.t_nrow-1; /* "-1" for mode line. */
wp->w_force = 0;
wp->w_flag = WFMODE|WFHARD; /* Full. */
/* and return the new screen pointer */
return(sp);
}
SCREEN *PASCAL NEAR lookup_screen(scr_name)
char *scr_name; /* named screen to find */
{
SCREEN *result;
/* scan the screen list */
result = first_screen;
while (result) {
/* if this is it, return its handle! */
if (strcmp(scr_name, result->s_screen_name) == 0)
return(result);
/* on to the next screen */
result = result->s_next_screen;
}
/* we didn't find it..... */
return((SCREEN *)NULL);
}
SCREEN *PASCAL NEAR index_screen(scr_num)
int scr_num; /* index of screen handle to return */
{
SCREEN *result;
/* screen numbers are ONE based */
--scr_num;
/* scan the screen list */
result = first_screen;
while (result && scr_num--) {
/* on to the next screen */
result = result->s_next_screen;
}
/* return what we found! */
return(result);
}
int PASCAL NEAR screen_index(sp)
SCREEN *sp; /* screen handle to find index to */
{
int result; /* screen index result */
SCREEN *cur_screen;
/* scan the screen list */
cur_screen = first_screen;
result = 1;
while (cur_screen) {
/* if this is it, return its handle! */
if (cur_screen == sp)
return(result);
/* on to the next screen */
cur_screen = cur_screen->s_next_screen;
++result;
}
/* we didn't find it..... */
return(0);
}
PASCAL NEAR insert_screen(sp)
SCREEN *sp; /* screen to insert in screen list */
{
SCREEN *cur_screen; /* ptr into screen list */
/* go to the end of the screen list */
cur_screen = first_screen;
while (cur_screen->s_next_screen)
cur_screen = cur_screen->s_next_screen;
/* and insert it */
cur_screen->s_next_screen = sp;
sp->s_next_screen = (SCREEN *)NULL;
}
int PASCAL NEAR select_screen(sp)
SCREEN *sp; /* ptr to screen to switch to */
{
/* make sure there is something here to set to! */
if (sp == (SCREEN *)NULL)
return(FALSE);
/* save the current screens concept of current window */
cur_screen->s_cur_window = curwp;
/* reset the current screen, window and buffer */
cur_screen = sp;
scr_num = screen_index(sp);
wheadp = cur_screen->s_first_window;
curwp = cur_screen->s_cur_window;
curbp = curwp->w_bufp;
/* let the display driver know we need a full screen */
upwind();
return(TRUE);
}
/* Build and popup a buffer containing the list of all screens.
Bound to "A-B".
*/
PASCAL NEAR list_screens(f, n)
int f,n; /* prefix flag and argument */
{
register int status; /* stutus return */
if ((status = screenlist(f)) != TRUE)
return(status);
return(wpopup(slistp));
}
/*
* This routine rebuilds the
* text in the special secret buffer
* that holds the screen list. It is called
* by the list screens command. Return TRUE
* if everything works. Return FALSE if there
* is an error (if there is no memory). Iflag
* indecates weather to list hidden screens.
*/
PASCAL NEAR screenlist(iflag)
int iflag; /* list hidden screen flag */
{
SCREEN *sp; /* ptr to current screen to list */
WINDOW *wp; /* ptr into current screens window list */
int status; /* return status from functions */
char line[NSTRING]; /* buffer to construct list lines */
char bname[NSTRING]; /* name of next buffer */
/* mark this buffer as unchanged so... */
slistp->b_flag &= ~BFCHG;
/* we can dump it's old contents without complaint */
if ((status = bclear(slistp)) != TRUE)
return(status);
/* there is no file connected with this buffer */
strcpy(slistp->b_fname, "");
/* construct the header of this list */
if (addline(slistp, "Screen Buffers") == FALSE
|| addline(slistp, "------ -------") == FALSE)
return(FALSE);
/* starting from the first screen */
sp = first_screen;
/* scan all the screens */
while (sp) {
/* construct the screen name */
strcpy(line, sp->s_screen_name);
strcat(line, " ");
line[15] = 0;
/* list this screens windows's buffer names */
wp = sp->s_first_window;
while (wp) {
/* grab this window's buffer name */
strcpy(bname, wp->w_bufp->b_bname);
/* handle full lines */
if (strlen(line) + strlen(bname) + 1 > 78) {
if (addline(slistp, line) == FALSE)
return(FALSE);
strcpy(line, " ");
}
/* append this buffer name */
if (strlen(line) > 15)
strcat(line, " ");
strcat(line, bname);
/* on to the next window */
wp = wp->w_wndp;
}
/* and add the line to the buffer */
if (addline(slistp, line) == FALSE)
return(FALSE);
/* on to the next screen */
sp = sp->s_next_screen;
}
/* all constructed! */
return(TRUE);
}